home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / lotus / lotus025.dsk / COMMDLG.LSS < prev    next >
Text File  |  1995-07-31  |  579b  |  20 lines
  1.     REM Common File Open/Save Example
  2.     REM 
  3.     REM This script illustrates using the common file
  4.     REM dialog box for the current operating system.
  5.     
  6.     REM Initialize the dialog box    
  7.     Dim commonDlg As LWPCommonDialog
  8.     Set commonDlg = Bind("")
  9.     
  10.     REM Fill in defaults
  11.     commonDlg.Filter = "Text|*.*|Ami Pro|*.sam"        ' List of filters
  12.     commonDlg.Text = "Common File Open Dialog"        ' Caption
  13.     commonDlg.FilterIndex = 1                        ' Filter to show initially
  14.     commonDlg.Type = 2
  15.     commonDlg.InitDir = "d:\"                        ' Starting directory
  16.     
  17.     commonDlg.Show(0)
  18.     
  19.     Print commonDlg.FileName
  20.